home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cobol.arc / CBL1.CBL < prev    next >
Text File  |  1985-08-26  |  768b  |  36 lines
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID.
  3.     CBL1.
  4. AUTHOR.
  5.     JAS.
  6. DATE-WRITTEN.
  7.     09/16/80.
  8. ENVIRONMENT DIVISION.
  9. CONFIGURATION SECTION.
  10. SOURCE-COMPUTER.
  11.     8080.
  12. OBJECT-COMPUTER.
  13.     8080.
  14. INPUT-OUTPUT SECTION.
  15. FILE-CONTROL.
  16.     SELECT LINE-OUT-FILE ASSIGN
  17.     CBL1.FIL.
  18. DATA DIVISION.
  19. FILE SECTION.
  20. FD  LINE-OUT-FILE
  21.     LABEL RECORDS
  22.     OMITTED.
  23. 01  LINE-RECORD         PIC X(40).
  24. PROCEDURE DIVISION.
  25. WRITE-NAME-AND-ADDRESS.
  26.     OPEN OUTPUT LINE-OUT-FILE.
  27.     MOVE 'J.STRAUS' TO LINE-RECORD.
  28.     WRITE LINE-RECORD.
  29.     MOVE '2956 SAN CARLOS DR.' TO LINE-RECORD.
  30.     WRITE LINE-RECORD.
  31.     MOVE 'WALNUT CREEK CA.' TO LINE-RECORD.
  32.     WRITE LINE-RECORD.
  33.     CLOSE LINE-OUT-FILE.
  34.     STOP RUN.
  35. EOF
  36.